home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / ssspcb20.zip / UALPCB11.ZIP / LISTER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-27  |  4KB  |  254 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     Integer  INTEGER006
  24.     Integer  INTEGER007
  25.     Integer  INTEGER008
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     Declare  Procedure PROC001()
  34.     Declare  Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
  35.     Declare  Procedure PROC003()
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     Goto LABEL001
  40.     End
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     Procedure PROC001()
  45.  
  46.     Integer  INTEGER001
  47.     Integer  INTEGER002
  48.  
  49.     INTEGER001 = GetDrive()
  50.     INTEGER002 = Os()
  51.  
  52.     EndProc
  53.  
  54.  
  55. ;------------------------------------------------------------------------------
  56.  
  57.     Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
  58.  
  59.     STRING001 = "NO"
  60.     STRING002 = "UNREGISTERED"
  61.     STRING003 = "UNREGISTERED"
  62.  
  63.     EndProc
  64.  
  65.  
  66. ;------------------------------------------------------------------------------
  67.  
  68.     Procedure PROC003()
  69.  
  70.     Color 0
  71.     Cls
  72.     AnsiPos 25, 10
  73.     Print "@X0FSHAREWARE EVALUATION VERSION"
  74.     AnsiPos 20, 12
  75.     Print "@X0ECopyright 1995,96 (c) Shuttle Software"
  76.     AnsiPos 30, 14
  77.     Print "@X0EAll Rights Reserved"
  78.     Delay 70
  79.  
  80.     EndProc
  81.  
  82.     :LABEL001
  83.     INTEGER003 = 0
  84.     INTEGER004 = 0
  85.     INTEGER007 = 0
  86.     INTEGER008 = 0
  87.     STRING006 = "NO"
  88.     STRING007 = ""
  89.     STRING008 = ""
  90.     STRING009 = ""
  91.     STRING010 = ""
  92.     PROC001()
  93.     If (AnsiOn()) Then
  94.         PROC002(STRING008, STRING010, STRING009)
  95.         Log "-=≡[ User Alias Lister ]≡=-", 0
  96.     Else
  97.         PrintLn "This program requires that your ANSI support is enabled!"
  98.         Wait
  99.         End
  100.     Endif
  101.     INTEGER008 = FileInf("C:\PCB\MAIN\USERS", 4) / 400
  102.     If (INTEGER008 > 0) Then
  103.         StartDisp 1
  104.         Gosub LABEL002
  105.     Else
  106.         PrintLn 
  107.         PrintLn "@X8CERROR@X0C - PCBoard USERS File Indicates 0 User Records!"
  108.         PrintLn 
  109.         PrintLn "@X0BThis error is probably caused by an incorrect path to the USERS file."
  110.         PrintLn 
  111.         PrintLn "@X0APlease contact the author for a free custom compiled version."
  112.         PrintLn 
  113.         Wait
  114.     Endif
  115.     StartDisp 2
  116.     PROC003()
  117.     End
  118.     :LABEL002
  119.     STRING006 = "NO"
  120.     INTEGER007 = 1
  121.     While (STRING006 <> "YES") Do
  122.         STRING007 = ""
  123.         Color 0
  124.         Cls
  125.         PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
  126.         PrintLn "@X0B▐@X1B │@X1E    User Alias Lister v1.1    @X1FRegistered To@X17:                             @X10│@X1B @X08▌@X0B"
  127.         PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
  128.         AnsiPos 49, 2
  129.         Print "@X1F", STRING009
  130.         AnsiPos 1, 4
  131.         PrintLn 
  132.         PrintLn "@X0A  ALIAS NAME                   CALLING FROM                  LAST DATE & TIME"
  133.         PrintLn "@X0A ─═══════════════════════════════════════════════════════════════════════════─"
  134.         For INTEGER003 = 1 To 15
  135.             If (INTEGER007 > INTEGER008) Then
  136.                 STRING006 = "YES"
  137.                 Break
  138.             Endif
  139.             GetAltUser INTEGER007
  140.             STRING004 = U_Alias
  141.             STRING005 = U_City
  142.             DATE001 = U_LDate()
  143.             INTEGER006 = Hour(U_LTime())
  144.             INTEGER005 = Min(U_LTime())
  145.             If (STRING004 == "") STRING004 = "NONE"
  146.             If (STRING005 == "") STRING005 = "NONE"
  147.             INTEGER004 = INTEGER003 + 6
  148.             AnsiPos 3, INTEGER004
  149.             Print "@X08........................................................................."
  150.             If (STRING004 == "NONE") Then
  151.                 AnsiPos 3, INTEGER004
  152.                 Print "@X0C", STRING004
  153.             Else
  154.                 AnsiPos 3, INTEGER004
  155.                 Print "@X0F", STRING004
  156.             Endif
  157.             If (STRING005 == "NONE") Then
  158.                 AnsiPos 32, INTEGER004
  159.                 Print "@X0C", STRING005
  160.             Else
  161.                 AnsiPos 32, INTEGER004
  162.                 Print "@X0E", STRING005
  163.             Endif
  164.             AnsiPos 62, INTEGER004
  165.             Print "@X0B", DATE001
  166.             AnsiPos 73, INTEGER004
  167.             PrintLn "@X0B", INTEGER006, ":", INTEGER005
  168.             INTEGER007 = INTEGER007 + 1
  169.         Next
  170.         If (STRING006 <> "YES") Then
  171.             PrintLn 
  172.             Print "@X0A  Press [@X0FQ@X0A]uit or [@X0FENTER@X0A] to continue..."
  173.             InputText " ", STRING007, 15, 1
  174.             If (Upper(STRING007) == "Q") STRING006 = "YES"
  175.             Continue
  176.         Endif
  177.         PrintLn 
  178.         Wait
  179.     EndWhile
  180.     Return
  181.  
  182. ;------------------------------------------------------------------------------
  183. ;
  184. ; Usage report (before postprocessing)
  185. ;
  186. ; ■ Statements used :
  187. ;
  188. ;    3       End
  189. ;    2       Cls
  190. ;    3       Wait
  191. ;    2       Color 
  192. ;    17      Goto 
  193. ;    31      Let 
  194. ;    11      Print 
  195. ;    17      PrintLn 
  196. ;    11      If 
  197. ;    2       StartDisp 
  198. ;    1       Log 
  199. ;    1       Gosub 
  200. ;    1       Return
  201. ;    1       Delay 
  202. ;    1       InputText 
  203. ;    12      AnsiPos 
  204. ;    1       GetAltUser 
  205. ;    3       EndProc
  206. ;
  207. ;
  208. ; ■ Functions used :
  209. ;
  210. ;    1       /
  211. ;    3       +
  212. ;    5       ==
  213. ;    2       <>
  214. ;    1       <
  215. ;    1       <=
  216. ;    2       >
  217. ;    2       >=
  218. ;    8       !
  219. ;    2       &&
  220. ;    1       ||
  221. ;    1       Upper()
  222. ;    1       U_LDate()
  223. ;    2       U_LTime()
  224. ;    1       Hour()
  225. ;    1       Min()
  226. ;    1       AnsiOn()
  227. ;    1       FileInf()
  228. ;    1       GetDrive()
  229. ;    1       Os()
  230. ;
  231. ;------------------------------------------------------------------------------
  232. ;
  233. ; Analysis flags : R
  234. ;
  235. ; R - Read user ■ 5
  236. ;     User records are read, this may signify that someone wants to get
  237. ;     various informations about a user (for example his password), but
  238. ;     this may also be normal for a program accessing user records (for
  239. ;     example a User Editor)
  240. ;     ■ Search for : GETALTUSER
  241. ;
  242. ;------------------------------------------------------------------------------
  243. ;
  244. ; Postprocessing report
  245. ;
  246. ;    1       For/Next
  247. ;    1       While/EndWhile
  248. ;    6       If/Then or If/Then/Else
  249. ;    0       Select Case
  250. ;
  251. ;------------------------------------------------------------------------------
  252. ;                 AEGiS Corp - Break the routines, code against the machines!
  253. ;------------------------------------------------------------------------------
  254.